﻿Imports DataSet_ohl
Imports DataSet_ohlTableAdapters
Partial Class pruebas_Empadres
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim empadre As New empadreDataTable
        Dim adapEmpadre As New empadreTableAdapter
        Dim empadreRow As empadreRow

        empadreRow = empadre.NewempadreRow
        empadreRow.empadreId = 0
        empadreRow.toro = "T88C1982"
        empadreRow.toroId = 820
        empadreRow.nombre = "PATRON"
        empadreRow.ano = 1990
        empadreRow.SetfechafinNull()
        empadreRow.SetfechainiNull()
        empadreRow.gan_cor = "C"
        empadreRow.ubicacion = "PRI"
        empadreRow.estatus = "A"
        empadre.AddempadreRow(empadreRow)
        empadre.AcceptChanges()

        adapEmpadre.Update(empadre)



    End Sub
End Class
